This show the surface of a volcano in a 3D plot.
p <- plot_ly(z= ~volcano) %>% add_surface(
contours=list(
z= list(
show=TRUE,
usecolormap=TRUE,
highlightcolor="#ff0000",
project=list(z=TRUE)
)
)
) %>%
layout(
scene=list(
camera=list(
eye= list(x=1.87, y=0.88, z=-0.64)
)
)
)
p